home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / B-Business / (c)b4.d64 / 1525 hi score.c (.txt) next >
Commodore BASIC  |  2007-02-04  |  2KB  |  43 lines
  1. 0 PRINT"[147]":POKE53281,0:POKE53280,0:PRINT"[158]"
  2. 1 PRINTSPC(10)"1525 HI-SCORE PRINTOUT":REM WRITTEN BY STEPHEN CHENG NO. 11714
  3. 2 PRINT"THIS PROGRAM PRINTS A TABLE OF HIGH"
  4. 3 PRINT"SCORES FROM EITHER THE COMMODORE 64 OR"
  5. 4 PRINT"  COLECO VISION.  THERE ARE 3 SPACES FOR"
  6. 5 PRINT"  YOU TO ENTER YOUR HIGH SCORES."
  7. 6 PRINT" PRESS '1' FOR COMMODORE 64":PRINT" PRESS '2' FOR COLECOVISION"
  8. 7 GETZ$:IFZ$=""THEN7
  9. 8 PRINT"[147]"
  10. 9 IF Z$="2"THEN11
  11. 10 PRINTTAB(7)"COMMODORE 64 HIGH SCORES":GOTO12
  12. 11 PRINTTAB(7)"COLECOVISION HIGH SCORES"
  13. 12 PRINT"HOW MANY COPIES?[158]":INPUTC
  14. 15 IFZ$="2"THENPRINT" DO YOU WISH TO USE THE RECORDED DATA":INPUT A$
  15. 17 IFLEFT$(A$,1)="Y"THEN400
  16. 20 INPUT"HOW MANY GAMES?";GA
  17. 30 DIM B$(GA)
  18. 35 FORN=1TOGA:PRINT"GAME ";N:INPUTB$(N):NEXTN
  19. 40 PRINT"GET READY[158] PUSH RETURN WHEN READY"
  20. 45 GETA$:IFA$=""THEN45
  21. 47 OPEN3,4:CMD3:PRINTCHR$(14)
  22. 48 FOR X=1TOC
  23. 50 PRINT"[213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201]"
  24. 51 PRINT"[221]                                    [221]
  25. 52 [139]Z$[178]"2"[167]60
  26. 55 [153]"(null)      COMMODORE 64 HIGH SCORES      (null)":[137]65
  27. 60 [153]"(null)      COLECOVISION HIGH SCORES      (null)
  28. 65 PRINT"[221]                                    [221]
  29. 70 [153]"MID$ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND(null)
  30. 75 FORN=1TO GA
  31. 80 PRINT"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  32. 90 PRINT"[221] ";B$(N);:A=18-(LEN(B$(N))):PRINTSPC(A)"[164][164][164][164]  [164][164][164][164]  [164][164][164][164] [221]"
  33. 100 PRINT"[202][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][203]
  34. 200 [130]N
  35. 210 [153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]:[130]X
  36. 250 [160]3,4:[128]
  37. 400 GAME[178]23:[134]B$(GA):[129]N[178]1[164]GA:[135]B$(N):[130]:[137]40
  38. 410 [131] "DONKEY KONG","DONKEY KONG JR.","COSMIC AVENGER","GORF","VENTURE"
  39. 420 [131]"LADYBUG","SMURF","TURBO","SLITHER","SPACE FURY","CARNIVAL","ZAXXON"
  40. 430 [131] "MOUSE TRAP","LOOPING","SPACE PANIC","SUBROC","PEPPER II","VICTORY"
  41. 433 [131] "BASEBALL"
  42. 435 [131] "MR DO!","OMEGA RACE","TIME PILOT","BUCK ROGERS"
  43.